10 REM *******************
20 REM * KOSTENVERGLEICH *
30 REM * FUER AUTOS      *
60 REM * BY D. BERNER    *
90 REM *******************
95 IFSA=0THENSA=49152:LOAD"INP/4",8,1
100 SA=49152:SB=SA+3:SC=SB+3:POKE53280,14:POKE53281,6:PRINT"[154]"CHR$(142)CHR$(8)
110 U=20:DIMPG(U),PZ(U),PR(U),PT(U),PU(U),PL(U),PD(U),PF(U),P1(U),P2(U),P3(U)
120 DIMUL$(U),UD$(U),UF$(U),U1$(U),U2$(U),U3$(U),U4$(U),U5$(U)
130 DIMP4(U),P5(U),P1$(U),P2$(U),P3$(U),P4$(U),P5$(U),PE(U),IZ(U),HR(U),TY$(U)
140 DIMTK$(U),P$(U),HU(U),VS(U),VH(U),VT(U),VV(U),VI(U),VE(U),TP(U),WK(U),WJ(U)
150 DIMTR$(U),WV(U),PR$(U),PT$(U),PU$(U),PL$(U),PD$(U),PF$(U),LE(U),SO(U),P(U)
160 DIMKB(U),ZM(U),MO(U),GE(U),AZ(U),KS(U),KR(U),UR$(U),UT$(U),UU$(U),K(U)
170 FORI=1TO20:TY$(I)="0":TK$(I)="0":P$(I)="0"
180 TR$(I)="0":P1$(I)="0":P2$(I)="0":P3$(I)="0":P4$(I)="0":P5$(I)="0"
190 PR$(I)="0":PT$(I)="0":PU$(I)="0":PL$(I)="0":PD$(I)="0":PF$(I)="0":NEXT
200 P1$="0":P2$="0":P3$="0":P4$="0":P5$="0"
210 PRINTCHR$(147):FORY=1TO6:PRINT:NEXT
220 PRINT"                  [206][207][183][183][183][207][183][183] [223]"
230 PRINT"                 [206] [180]   [180]    [223]"
240 PRINT"                [206]  [180][160][160][160][180][160][160]   [223]"
250 PRINT"                [180]    [175] [180]      [223]"
260 PRINT"                [180]      [180]       "
270 PRINT"         [180] [206][183][183][205] [165]      [165]       "
280 PRINT"        [161] [167]    [165][180]      [180][167][183][183][183][183][165] "
290 PRINT"               [146]              "
300 PRINT"           [223]  [146][169]          [223]  [146][169]"
310 FORI=1TO1000:NEXT
320 PRINTCHR$(19):FORY=1TO4:PRINT:NEXT:PRINT"     K O S T E N V E R G L E I C H"
330 FORI=1TO2000:NEXT
340 FORY=1TO12:PRINT:NEXT:PRINT"        PREISE UND HALTUNGSKOSTEN"
350 FORI=1TO2000:NEXT
360 PRINT:PRINT:PRINTCHR$(18)"1"CHR$(146)" DATENEINGABE"
370 PRINT:PRINTCHR$(18)"2"CHR$(146)" LADEN GESPEICHERTER DATEN VON DISKETTE";
380 GETM$:IFM$="1"THEN410
390 IFM$="2"THEN2830
400 GOTO380
410 REM * ANGABEN ZU DEN EINZELNEN FAHRZEUGEN*
420 N=N+1
430 PRINTCHR$(147)CHR$(18)"FAHRZEUG NR."N;CHR$(157)"                          ":I=N
440 PRINT"TYP: "TY$(I):PRINTCHR$(145)SPC(3):SYSSA:INPUTTY$(I)
450 PRINT"KURZBEZEICHNUNG (MAX. 3 BUCHST.)  ";TK$(I)
460 PRINTCHR$(145)SPC(32);:SYSSB:INPUTTK$(I)
470 PRINT:PRINT"LEISTUNG(KW) "LE(I):PRINTCHR$(145)SPC(12):SYSSC:INPUTLE(I)
480 PRINTCHR$(145)SPC(19)"HUBRAUM[160](CCM) "HU(I):PRINTCHR$(145)SPC(32);
490 SYSSC:INPUTHU(I)
500 PRINT:PRINT"GRUNDPREIS "PG(I):PRINTCHR$(145)SPC(10):SYSSC:INPUTPG(I)
510 PRINT:PRINT"UEBERFUEHRUNG + ZULASSUNG "PZ(I)
520 PRINTCHR$(145)SPC(25):SYSSC:INPUTPZ(I)
530 PRINT:PRINTCHR$(18)"              E X T R A S :             ";
540 PRINTCHR$(18)"SETZEN SIE STATT DES PREISES '*' EIN,   ";
550 PRINTCHR$(18)"WENN DER POSTEN SCHON IM GRUNDPREIS ENT-";
560 PRINTCHR$(18)"HALTEN IST, BZW. '0', WENN DAS EXTRA    ";
570 PRINTCHR$(18)"NICHT GEWUENSCHT WIRD ODER BEI DIESEM   ";
580 PRINTCHR$(18)"FAHRZEUG NICHT ERHAELTLICH IST!         "
590 PRINT"AUTORADIO         "PR$(I)
600 PRINTCHR$(145)SPC(16):SYSSA:INPUTEX$:GOSUB1390:PR(I)=EX:PR$(I)=EX$
610 PRINT:PRINT"4 TUEREN          "PT$(I)
620 PRINTCHR$(145)SPC(16):SYSSA:INPUTEX$:GOSUB1390:PT(I)=EX:PT$(I)=EX$
630 PRINT:PRINT"UNTERBODEN- U.HOHLRAUMSCHUTZ  "PU$(I)
640 PRINTCHR$(145)SPC(28):SYSSA:INPUTEX$:GOSUB1390:PU(I)=EX:PU$(I)=EX$
650 PRINT:PRINT"SERVOLENKUNG      "PL$(I)
660 PRINTCHR$(145)SPC(16):SYSSA:INPUTEX$:GOSUB1390:PL(I)=EX:PL$(I)=EX$
670 PRINT:PRINT"SCHIEBEDACH       "PD$(I)
680 PRINTCHR$(145)SPC(16):SYSSA:INPUTEX$:GOSUB1390:PD(I)=EX:PD$(I)=EX$
690 PRINT:PRINT"SONDERLACKIERUNG  "PF$(I)
700 PRINTCHR$(145)SPC(16):SYSSA:INPUTEX$:GOSUB1390:PF(I)=EX:PF$(I)=EX$
710 PRINT:PRINT:PRINT"WEITERE EXTRAS: (MAX.5)":PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
720 PRINT"(HOECHSTENS 9 BUCHSTABEN)"
730 IFP1$<>"0"THEN760
740 GOSUB1440:IFE$="N"THEN980
750 SYSSA:INPUTP1$:IFLEN(P1$)>9THENP1$=LEFT$(P1$,9)
760 PRINT:PRINTP1$,,"  "P1$(I):PRINTCHR$(145),,;
770 SYSSA:INPUTEX$:GOSUB1390:P1(I)=EX:P1$(I)=EX$
780 IFP2$<>"0"THEN810
790 GOSUB1440:IFE$="N"THEN980
800 SYSSA:INPUTP2$:IFLEN(P2$)>9THENP2$=LEFT$(P2$,9)
810 PRINT:PRINTP2$,,"  "P2$(I):PRINTCHR$(145),,;
820 SYSSA:INPUTEX$:GOSUB1390:P2(I)=EX:P2$(I)=EX$
830 IFP3$<>"0"THEN860
840 GOSUB1440:IFE$="N"THEN980
850 SYSSA:INPUTP3$:IFLEN(P3$)>9THENP3$=LEFT$(P3$,9)
860 PRINT:PRINTP3$,,"  "P3$(I):PRINTCHR$(145),,;
870 SYSSA:INPUTEX$:GOSUB1390:P3(I)=EX:P3$(I)=EX$
880 IFP4$<>"0"THEN910
890 GOSUB1440:IFE$="N"THEN980
900 SYSSA:INPUTP4$:IFLEN(P4$)>9THENP4$=LEFT$(P4$,9)
910 PRINT:PRINTP4$,,"  "P4$(I):PRINTCHR$(145),,;
920 SYSSA:INPUTEX$:GOSUB1390:P4(I)=EX:P4$(I)=EX$
930 IFP5$<>"0"THEN960
940 GOSUB1440:IFE$="N"THEN980
950 SYSSA:INPUTP5$:IFLEN(P5$)>9THENP5$=LEFT$(P5$,9)
960 PRINT:PRINTP5$,,"  "P5$(I):PRINTCHR$(145),,;
970 SYSSA:INPUTEX$:GOSUB1390:P5(I)=EX:P5$(I)=EX$
980 PRINT:PRINT:PRINT"INZAHLUNGNAHME DES ALTEN WAGENS FUER"
990 PRINT"WIEVIEL DM "IZ(I):PRINTCHR$(145)SPC(10):SYSSC:INPUTIZ(I)
1000 PRINT:PRINT"HAENDLERRABATT IN % "HR(I):PRINTCHR$(145)SPC(19):SYSSC:INPUTHR(I)
1010 PE(I)=PG(I)+PZ(I)+PR(I)+PT(I)+PU(I)+PL(I)+PD(I)+PF(I)
1020 PE(I)=PE(I)+P1(I)+P2(I)+P3(I)+P4(I)+P5(I)-IZ(I)
1030 PE(I)=INT(PE(I)*(1-HR(I)/100)*100+.5)/100
1040 FORJ=1TO40:PRINT"[183]";:NEXT:PRINT"INSGESAMT",,PE(I)"DM":PRINT:PRINT
1050 GOSUB4400
1060 PRINT:PRINT:PRINT"SOLLEN DATEN FUER EINEN WEITEREN WAGEN  EINGEGEBEN WERDEN? (J/N)"
1070 GETE$:IFE$="J"THEN420
1080 IFE$="N"THEN1100
1090 GOTO1070
1100 POKE53280,14:POKE53281,6
1110 PRINTCHR$(147)CHR$(18)CHR$(154)"         Z U R   A U S W A H L          "
1120 PRINTCHR$(18)"1"CHR$(146)" DATENEINGABE FUER EIN WEITERES          FAHRZEUG"
1130 PRINT:PRINTCHR$(18)"2"CHR$(146)" KORREKTUR: PREISANGABEN
1140 [153]:[153][199](18);
1150 [153]"3"[199](146)" STEUER UND VERSICHERUNG":[153]"  (EINGABE BZW. KORREKTUR)"
1160 [153]:[153][199](18)"4"[199](146)" WERKSTATTKOSTEN":[153]"  (EINGABE BZW. KORREKTUR)"
1170 [153]:[153][199](18)"5"[199](146)" BETRIEBSKOSTEN":[153]"  (EINGABE BZW. KORREKTUR)"
1180 [153]:[153][199](18)"6"[199](146)" TABELLE'ANSCHAFFUNGSPREIS'"
1190 [153]:[153][199](18)"7"[199](146)" TABELLE 'KOSTEN PRO MONAT'
1200 PRINT:PRINTCHR$(18)"8"CHR$(146)" TABELLE 'KOSTEN PRO KILOMETER'
1210 [153]:[153][199](18)"9"[199](146)" GRAFIK"
1220 [153]:[153][199](18)"*"[199](146)" SPEICHERN DER DATEN AUF DISKETTE";
1230 [161]E$:[139]E$[178]""[167]1230
1240 [139]E$[178]"*"[167]2640
1250 E[178][197](E$):[145] E [137]410,1270,1470,1660,1830,2240,2370,2550,3050
1260 [137]1230
1270 [153][199](147)[199](18)"   K O R R E K T U R  ( P R E I S ECLOSE)   "
1280 [141]1810
1290 [153]:[153]"KORREKTUR FUER NR.";:[158]SC:[133]I
1300 [153]:[153]:[153]"DIE KORREKTUR ERFOLGT DURCH UEBER-"
1310 [153]"SCHREIBEN, EINFUEGEN ODER ANHAENGEN."
1320 [153]"NACH DER KORREKTUR ODER WENN NICHTS VER-";
1330 [153]"AENDERT WERDEN SOLL, BITTE "[199](18)"RETURN"[199](146)
1340 [153]"DRUECKEN!"
1350 [153]:[153]:[153]"WEITER?"
1360 [161]E$:[139]E$[178]""[167]1360
1370 [137]440
1380 [128]
1390 [143] PREISE FUER SONDERZUBEHOER
1400 [139]EX$[178]"0"[167]EX[178]0:[142]
1410 [139]EX$[178]"*"[167]EX[178]0:[142]
1420 EX[178][197](EX$):[139]EX[179][177]0[167][142]
1430 [153]"LOADEINGABE NICHT KORREKT!":[153]"BITTE NEUEINGABE!";:[158]SA:[133]EX$:[137]1400
1440 [153]:[153]"WIRD DIE EINGABE WEITERER EXTRAS        GEWUENSCHT?"
1450 [161]E$:[139]E$[178]"J"[176]E$[178]"N"[167][142]
1460 [137]1450
1470 [153][199](147):[143] *STEUER U.VERSICHERUNG*
1480 [141]1810
1490 [153]:[153]:[153]"STEUER- UND VERSICHERUNGSANGABEN FUER"
1500 [153]"FAHRZEUG NR.";:[158]SC:[133]I
1510 [153][199](147)[199](18)"        STEUER UND VERSICHERUNG         "
1520 [153]"FUER "TY$(I)
1530 [153]:[153][199](144)"KRAFTFAHRZEUGSTEUER/JAHR"[199](154):[153]" "VS(I)
1540 [153][199](145);:[158]SC:[133]VS(I)
1550 [153]:[153][199](144)"HAFTPFLICHTVERSICHERUNG/JAHR"[199](154):[153]" "VH(I)
1560 [153][199](145);:[158]SC:[133]VH(I)
1570 [153]:[153][199](144)"TEILKASKOVERSICHERUNG/JAHR"[199](154):[153]" "VT(I)
1580 [153][199](145);:[158]SC:[133]VT(I)
1590 [153][199](144)
1600 [153]"VOLLKASKOVERSICHERUNG/JAHR"[199](154):[153]" "VV(I):[153][199](145);
1610 [158]SC:[133]VV(I)
1620 [153][199](144)
1630 [153][199](144)"INSASSENUNFALLVERSICHERUNG"[199](154):[153]" "VI(I):[153][199](145);
1640 [158]SC:[133]VI(I)
1650 [137]1100
1660 [141]1810:[153]:[153]"WERKSTATTKOSTEN FUER NR.";:[158]SC:[133]I
1670 [153][199](147)[199](18)"     W E R K S T A T T K O S T E N      "
1680 [153]"ZU DEN WERKSTATTKOSTEN GEHOEREN U.A.:"
1690 [153]"OELWECHSEL, INSPEKTIONEN, REIFEN- UND   AUSPUFFERNEUERUNG..."
1700 [153]"WEIL ES KAUM MOEGLICH IST, DIE WERKSTATT";
1710 [153]"KOSTEN DER NAECHSTEN JAHRE EXAKT VORAUS-";
1720 [153]"ZUBERECHNEN, WIRD HIER MIT EINER":[153]"PAUSCHALE GERECHNET.":[153]
1730 [153][199](144)"FUER "TY$(I)
1740 [153]:[153][199](18)"1"[199](146);
1750 [153]" PAUSCHALE VON 150 DM/MONAT (DURCH-      SCHNITTSWERT STAND 1992)":[153]
1760 [153][199](18)"2"[199](146)" ANDERE PAUSCHALE"[199](154)
1770 [161]E$:[139]E$[178]"1"[167]WK(I)[178]150:WJ(I)[178]WK(I)[172]12:[137]1100
1780 [139]E$[178]"2"[167][153]:[153]:[153]"WIEVIEL DM "WK(I):[153][199](145)[166]10):[158]SC:[133]WK(I)
1790 [139]E$[178]"2"[167]WJ(I)[178]WK(I)[172]12:[137]1100
1800 [137]1770
1810 [153][199](147):[153]"BISHER WURDEN DATEN EINGEGEBEN FUER"
1820 [129]I[178]1[164]N:[153]:[153]I;TY$(I):[130]:[142]
1830 [141]1810
1840 [153]:[153]"BETRIEBSKOSTEN FUER WELCHES FAHRZEUG?":[158]SC:[133]I
1850 [153][199](147)[199](18)"      B E TR I E B S K O S T E N        "
1860 [153][199](144)"FUER "TY$(I):[153][199](154)
1870 [153]"DER MOTOR BRAUCHT":[153]
1880 [153]"    "[199](18)"N"[199](146)" NORMAL    "[199](18)"S";
1890 [153][199](146)" SUPER    "[199](18)"D"[199](146)" DIESEL"
1900 [153]:[153]:[153]"  "[199](18)"A"[199](146)" BLEIFREI NORMAL   ";
1910 [153][199](18)"B"[199](146)" BLEIFREI SUPER"
1920 [161]TR$(I)
1930 [139]TR$(I)[178]"N"[167][153]:[153]"PREIS/1 LITER NORMALBENZIN "PN
1940 [139]TR$(I)[178]"N"[167][153][199](145)[166]26):[158]SC:[133]PN:[137]2040
1950 [139]TR$(I)[178]"S"[167][153]:[153]"PREIS/1 LITER SUPERBENZIN "PS
1960 [139]TR$(I)[178]"S"[167][153][199](145)[166]26):[158]SC:[133]PS:[137]2040
1970 [139]TR$(I)[178]"D"[167][153]:[153]"PREIS/1 LITER DIESEL "PD
1980 [139]TR$(I)[178]"D"[167][153][199](145)[166]20):[158]SC:[133]PD:[137]2040
1990 [139]TR$(I)[178]"A"[167][153]:[153]"PREIS/1 LITER NORMAL(BLEIFR.) "PA
2000 [139]TR$(I)[178]"A"[167][153][199](145)[166]29):[158]SC:[133]PA:[137]2040
2010 [139]TR$(I)[178]"B"[167][153]:[153]"PREIS/1 LITER SUPER (BLEIFR.) "PB
2020 [139]TR$(I)[178]"B"[167][153][199](145)[166]29):[158]SC:[133]PB:[137]2040
2030 [137]1920
2040 [153]:[153]:[153][199](144)"VERBRAUCH: "[199](154)"BERUECKSICHTIGEN SIE DABEI,"
2050 [153]"OB DER WAGEN UEBERWIEGEND AUF LANGSTREK-";
2060 [153]"KEN ODER IM STADTVERKEHR GEFAHREN WIRD! "
2070 [153]"WIEVIEL LITER AUF 100 KM "VE(I)
2080 [153][199](145)[166]24):[158]SC:[133]VE(I)
2090 [153]:[153]:[153][199](144)"DIE KOSTEN FUER NACHGEFUELLTES OEL"
2100 [153]"WERDEN MIT 1% DER TREIBSTOFFKOSTEN BEI"
2110 [153]"OTTOMOTOREN UND MIT 2% BEI DIESELMOTOREN";
2120 [153]"BERUECKSICHTIGT."[199](154):[153]:[153]
2130 [141]2210
2140 [153][199](147)[199](18)"            S O N S T I G E S           "
2150 [153]"FALLS GEWUENSCHT, KOENNEN SIE HIER"
2160 [153]"KOSTEN FUER WAGENPFLEGE, GARAGENMIETE...";
2170 [153]"BERUECKSICHTIGEN.":[153]
2180 [153]"SUMME PRO JAHR "SO(I)
2190 [153][199](145)[166]14):[158]SC:[133]SO(I)
2200 [137]1100
2210 [153]"WEITER?    (BELIEBIGE TASTE!)";
2220 [161]E$:[139]E$[178]""[167]2220
2230 [142]
2240 [143] * T A B E L L E N *
2250 [153][199](147)[199](18)"  A N S C H A F F U N G S K O S T E N   "
2260 [129]I[178]1[164]N:[153]TY$(I);
2270 [129]J[178]1[164]25[171][195](TY$(I)):[153]".";:[130]:PX[178]PE(I):[139]KR(I)[178]1[167]PX[178]KS(I)
2280 [153][181](PX)"DM"
2290 [139]N[179]10[167][153]
2300 [130]I:[141]2210
2310 [137]1100
2320 [153][199](147):[129]Y[178]1[164]6:[153]:[130]:[153]"DURCHSCHNITTLICHE FAHRSTRECKE PRO JAHR:"
2330 [153]:[158]SC:[133]S
2340 [153]:[153]:[153]
2350 [153]"NACH WIEVIEL JAHREN WOLLEN SIE":[153]"WIEDER VERKAUFEN";
2355 [158]SC:[133]ZJ
2360 [142]
2370 [141]2320:[153][199](147)[199](18)"   KOSTEN PRO MONAT BEI"S;
2380 [153][199](157)" KM/JAHR   "
2390 [129]I[178]1[164]N:[153]TY$(I);
2400 [129]J[178]1[164]28[171][195](TY$(I)):[153]".";:[130]
2410 [141]2450:[153][181](P(I)[173]12)"DM"
2420 [139]N[179]10[167][153]
2430 [130]I:[141]2210
2440 [137]1100
2450 [143] * KOSTEN PRO JAHR *
2460 PX[178]PE(I):[139]KR(I)[178]1[167]PX[178]KS(I)
2470 P(I)[178]PX[173]ZJ[170]VS(I)[170]VH(I)[170]VT(I)[170]VV(I)[170]VI(I)[170]WJ(I)[170]SO(I)
2480 [139]TR$(I)[178]"N"[167]TP[178]PN:OE[178]1.01
2490 [139]TR$(I)[178]"S"[167]TP[178]PS:OE[178]1.01
2500 [139]TR$(I)[178]"D"[167]TP[178]PD:OE[178]1.02
2510 [139]TR$(I)[178]"A"[167]TP[178]PA:OE[178]1.01
2520 [139]TR$(I)[178]"B"[167]TP[178]PB:OE[178]1.01
2530 P(I)[178]P(I)[170]S[173]100[172]VE(I)[172]TP[172]OE
2540 [142]
2550 [141]2320:[153][199](147)[199](18)" KOSTEN PRO KILOMETER BEI"S;
2560 [153][199](157)" KM/JAHR "
2570 [129]I[178]1[164]N:[153]TY$(I);
2580 [129]J[178]1[164]30[171][195](TY$(I)):[153]".";:[130]:[141]2450
2590 KP[178][181](P(I)[173]S[172]100[170].5)[173]100
2600 KP$[178][196](KP):[139]KP[179]1[175][195](KP$)[179]4[167]KP$[178]KP$[170]"0"
2610 [139]KP[179]1[167]KP$[178]"0"[170][201](KP$,3)
2620 [153]KP$" DM":[139]N[179]10[167][153]
2630 [130]I:[141]2210:[137]1100
2640 [143] * SPEICHERN AUF DISKETTE *
2650 [153]:[159]1,8,15,"S:AUTOVERGL.":[160]1
2660 [159]1,8,8,"AUTOVERGL.,S,W"
2670 [152]1,N:[152]1,PN:[152]1,PS:[152]1,PD:[152]1,PA:[152]1,PB
2680 [152]1,P1$:[152]1,P2$:[152]1,P3$:[152]1,P4$:[152]1,P5$
2690 [129]I[178]1[164]N
2700 [152]1,TY$(I):[152]1,TK$(I):[152]1,LE(I):[152]1,HU(I):[152]1,SO(I)
2710 [152]1,PG(I):[152]1,PZ(I):[152]1,PR(I):[152]1,PT(I):[152]1,PU(I):[152]1,PL(I)
2720 [152]1,PD(I):[152]1,PF(I):[152]1,P1(I):[152]1,P2(I):[152]1,P3(I)
2730 [152]1,P4(I):[152]1,P5(I)
2740 [152]1,P1$(I):[152]1,P2$(I):[152]1,P3$(I):[152]1,P4$(I):[152]1,P5$(I)
2750 [152]1,PE(I):[152]1,IZ(I):[152]1,HR(I)
2760 [152]1,VS(I):[152]1,VH(I):[152]1,VT(I):[152]1,VV(I):[152]1,VI(I)
2770 [152]1,VE(I):[152]1,TP(I):[152]1,WK(I):[152]1,WJ(I):[152]1,TR$(I)
2780 [152]1,PD$(I):[152]1,PT$(I):[152]1,PU$(I):[152]1,PL$(I):[152]1,PR$(I)
2790 [152]1,KB(I):[152]1,ZM(I):[152]1,MO(I):[152]1,GE(I):[152]1,AZ(I):[152]1,KS(I):[152]1,KR(I)
2800 [152]1,PF$(I):[130]
2810 [160]1
2820 [137]1100
2830 [143] * LADEN VON DISKETTE *
2840 [159]1,8,8,"AUTOVERGL.,S,R"
2850 [132]1,N:[132]1,PN:[132]1,PS:[132]1,PD:[132]1,PA:[132]1,PB
2860 [132]1,P1$:[132]1,P2$:[132]1,P3$:[132]1,P4$:[132]1,P5$
2870 [129]I[178]1[164]N
2880 [132]1,TY$(I):[132]1,TK$(I):[132]1,LE(I):[132]1,HU(I):[132]1,SO(I)
2890 [132]1,PG(I):[132]1,PZ(I):[132]1,PR(I):[132]1,PT(I):[132]1,PU(I):[132]1,PL(I)
2900 [132]1,PD(I):[132]1,PF(I):[132]1,P1(I):[132]1,P2(I):[132]1,P3(I)
2910 [132]1,P4(I):[132]1,P5(I)
2920 [132]1,P1$(I):[132]1,P2$(I):[132]1,P3$(I):[132]1,P4$(I):[132]1,P5$(I)
2930 [132]1,PE(I):[132]1,IZ(I):[132]1,HR(I)
2940 [132]1,VS(I):[132]1,VH(I):[132]1,VT(I):[132]1,VV(I):[132]1,VI(I)
2950 [132]1,VE(I):[132]1,TP(I):[132]1,WK(I):[132]1,WJ(I):[132]1,TR$(I)
2960 [132]1,PD$(I):[132]1,PT$(I):[132]1,PU$(I):[132]1,PL$(I):[132]1,PR$(I)
2970 [132]1,KB(I):[132]1,ZM(I):[132]1,MO(I):[132]1,GE(I):[132]1,AZ(I):[132]1,KS(I):[132]1,KR(I)
2980 [132]1,PF$(I):[130]
2990 [139]PR$(I)[179][177]"*"[167]PR$(I)[178][196](PR(I))
3000 [160]1
3010 [137]1100
3020 [153]"BISHER WURDEN DATEN EINGEGEBEN FUER"
3030 [129]I[178]1[164]N:[153]:[153]I;TY$(I):[130]
3040 [142]
3050 [143] * G R A F I K *
3060 [153][199](147)[199](18)" D I A G R A M M E  Z U R  A U S W A H L"
3070 [153][199](18)"1"[199](146)" ANSCHAFFUNGSPREISE"
3080 [153]:[153][199](18)"2"[199](146)" MONATLICHE KOSTEN"
3090 [153]:[153][199](18)"3"[199](146)" KOSTEN PRO KILOMETER"
3100 [153]:[153][199](18)"4"[199](146)" HUBRAUM UND LEISTUNG"
3110 [153]:[153][199](18)"5"[199](146)" EXTRAS"
3120 [153]:[153][199](18)"6"[199](146)" DRUCKERAUSGABE FUER EIN FAHRZEUG"
3130 [153]:[153]:[153]:[153]"ZUR PROGRAMMFORTSETZUNG NACH DIAGRAMMEN"
3140 [153]"EINE BELIEBIGE TASTE DRUECKEN!"
3150 [153]:[153]"WIRD EINE HARDCOPY GEWUENSCHT,"
3160 [153][199](18)"F1"[199](146)" DRUECKEN!"
3170 [161]E$:[139]E$[178]""[167]3170
3180 E[178][197](E$):[145]E[137]3200,3350,3430,3510,3990,4790
3190 [137]3170
3200 [143] * GRAFIK ANSCHAFFUNGSKOSTEN *
3210 GR[178]1:MO[178]1:[151]53280,0:[151]53281,0:[143] HINTERGR.FARBE
3220 [153][199](147)[199](158)" A N S C H A F F U N G S K O S T E N":[153]:MS[178]0
3230 [129]I[178]1[164]N:[139]KS(I)[177]60000[167]MS[178]3:[137]3270
3240 [139]KS(I)[177]30000[167][139]MS[179]2[167]MS[178]2
3250 [139]KS(I)[177]15000[167][139]MS[179]1[167]MS[178]1
3260 [130]
3270 [129]I[178]1[164]20:[153][163]5)[199](5)"ABS    THEN    THEN    THEN    THEN    THEN    THEN":[130]
3280 [129]I[178]1[164]38:[153]"FRE";:[130]:[153]
3290 [139]MS[178]0[167][153][163]14)"5000     10000     15000":DI[178]500
3300 [139]MS[178]1[167][153][163]13)"10000     20000     30000":DI[178]1000
3310 [139]MS[178]2[167][153][163]13)"20000     40000     60000":DI[178]2000
3320 [139]MS[178]3[167][153][163]13)"30000     60000     90000":DI[178]3000
3330 [129]I[178]1[164]N:K(I)[178]KS(I):[130]
3340 [137]3800
3350 [143] * GRAFIK KOSTEN PRO MONAT *
3360 [141]2320:GR[178]1:MO[178]1:[151]53280,7:[151]53281,7:[143] HINTERGR.FARBE
3370 [153][199](147)[199](31)"   K O S T E N   P R O   M O N A T":[153]:MS[178]0
3380 [129]I[178]1[164]20:[153][163]5)[199](144)"ABS    THEN    THEN    THEN    THEN    THEN    THEN":[130]
3390 [129]I[178]1[164]38:[153]"FRE";:[130]:[153]
3400 [129]I[178]1[164]N:[141]2450:K(I)[178][181](P(I)[173]12):[130]
3410 [153][163]14)" 300      600       900":DI[178]30
3420 [137]3800
3430 [143] * GRAFIK KOSTEN PRO KILOMETER *
3440 [141]2320:GR[178]1:MO[178]1:[151]53280,14:[151]53281,14:[143] HINTERGR.FARBE
3450 [153][199](147)[199](31)" K O S T E N   P R O   K I L O M E T E R":MS[178]0
3460 [129]I[178]1[164]20:[153][163]5)[199](144)"ABS    THEN    THEN    THEN    THEN    THEN    THEN":[130]
3470 [129]I[178]1[164]38:[153]"FRE";:[130]:[153]
3480 [129]I[178]1[164]N:[141]2450:K(I)[178][181](P(I)[173]S[172]100):[130]
3490 [153][163]14)"0.30      0.60      0.90";:DI[178]3
3500 [137]3800
3510 [143] * GRAFIK HUBRAUM UND LEISTUNG *
3520 GR[178]1:[151]53280,0:[151]53281,0:[143] HINTERGRUNDFARBE
3530 [153][199](147)[199](5):[153]:[153]:[129]I[178]1[164]N:[153]I;TK$(I):[130]:[153][199](19):LE[178]0
3540 [129]I[178]1[164]N:[139]LE(I)[177]100[167]LE[178]1:[137]3560
3550 [130]:HU[178]0
3560 [129]I[178]1[164]N:[139]HU(I)[177]4000[167]HU[178]2:[137]3590
3570 [139]HU(I)[177]2000[167]HU[178]1
3580 [130]
3590 [139]HU[178]2[167]H1$[178]"6000":H2$[178]"4500":H3$[178]"3000":H4$[178]"1500":DH[178]300
3600 [139]HU[178]1[167]H1$[178]"4000":H2$[178]"3000":H3$[178]"2000":H4$[178]"1000":DH[178]200
3610 [139]HU[178]0[167]H1$[178]"2000":H2$[178]"1500":H3$[178]"1000":H4$[178]" 500":DH[178]100
3620 [139]LE[178]1[167]L1$[178]"200":L2$[178]"150":L3$[178]"100":L4$[178]" 50":DL[178]10
3630 [139]LE[178]0[167]L1$[178]"100":L2$[178]" 75":L3$[178]" 50":L4$[178]" 25":DL[178]5
3640 [153][199](19)"     LEISTUNG ("[199](28)"(null)"[199](154)")             HUBRAUM((null))";
3650 [153]"        IN KW                    IN CCM"
3660 [153][163]9)L1$"SQR....................(null)"H1$:X[178]4:[141]3700
3670 [153][163]9)L2$"SQR....................(null)"H2$:[141]3700
3680 [153][163]9)L3$"SQR....................(null)"H3$:[141]3700
3690 [153][163]9)L4$"SQR....................(null)"H4$:X[178]5:[141]3700:[137]3710
3700 [129]I[178]1[164]X:[153][163]12)"THEN    .    .    .     FN":[130]:[142]
3710 [153][163]12)"FRE1FREFREFRE5FREFREFRE10FREFREFRE15FREFREFRE20FRE"
3720 [129]I[178]1[164]N:LX[178][181](LE(I)[173]DL[170].5):HX[178][181](HU(I)[173]DH[170].5)
3730 [151]1956[170]I[171]LX[172]40,81:[151]56228[170]I[171]LX[172]40,2
3740 [151]1956[170]I[171]HX[172]40,87:[151]56228[170]I[171]HX[172]40,7
3750 [139]HX[178]LX[167][151]1956[170]I[171]HX[172]40,42
3760 [130]
3770 [161]E$:[139]E$[178]""[167]3770
3780 [139][198](E$)[178]133[167][141]4660
3790 [137]1100
3800 [143] * BALKENGRAFIK *
3810 [153][199](19):[153]:[139]N[179]6[167][129]Y[178]1[164]5:[153]:[130]
3820 [129]I[178]1[164]N:[153]TK$(I):[139]N[179]11[167][153]
3830 [130]I
3840 [153][199](19):[153]:[139]N[179]6[167][129]Y[178]1[164]5:[153]:[130]
3850 [129]I[178]1[164]N:[153][166]6)
3860 K1[178][181](K(I)[173]DI):K2[178][181]((K(I)[171]K1[172]DI)[173]DI[172]6)
3861 [139]K1[177]32[167]K1[178]32
3870 [139]K1[177][178]1[167][129]J[178]1[164]K1:[153][199](28)[199](18)" ";:[130]
3871 [139]K1[178]32[167][153]"CMD>";
3880 [139]K2[178]0[167][153]
3890 [139]K2[178]1[167][153][199](146)[199](165)
3900 [139]K2[178]2[167][153][199](146)[199](181)
3910 [139]K2[178]3[167][153][199](146)[199](161)
3920 [139]K2[178]4[167][153][199](182)
3930 [139]K2[178]5[167][153][199](167)
3940 [139]N[179]11[167][153]
3950 [130]I
3960 [161]E$:[139]E$[178]""[167]3960
3970 [139][198](E$)[178]133[167][141]4660
3980 MO[178]0:[137]1100
3990 [143] * E X T R A S *
4000 [153][199](147)[199](144)"*-SERIENM. A-AUFPREIS 0-NICHT VORHANDEN "
4010 [139]N[179]10[167]AS$[178]"  ":AS[178]3:[137]4040
4020 [139]N[177]15[167]AS$[178]"":AS[178]1:[137]4040
4030 AS$[178]" ":AS[178]2
4040 [129]J[178]1[164]3
4050 TB[178]11:[129]I[178]1[164]N
4060 [153][163]TB)[202](TK$(I),J,1);:TB[178]TB[170]AS:[130]I:[153]:[130]J
4070 [129]I[178]1[164]40:[153]"FRE";:[130]
4080 [129]I[178]1[164]N
4090 UR$(I)[178]PR$(I):[139]UR$(I)[179][177]"*"[175]UR$(I)[179][177]"0"[167]UR$(I)[178]"A"
4100 UT$(I)[178]PT$(I):[139]UT$(I)[179][177]"*"[175]UT$(I)[179][177]"0"[167]UT$(I)[178]"A"
4110 UU$(I)[178]PU$(I):[139]UU$(I)[179][177]"*"[175]UU$(I)[179][177]"0"[167]UU$(I)[178]"A"
4120 UL$(I)[178]PL$(I):[139]UL$(I)[179][177]"*"[175]UL$(I)[179][177]"0"[167]UL$(I)[178]"A"
4130 UD$(I)[178]PD$(I):[139]UD$(I)[179][177]"*"[175]UD$(I)[179][177]"0"[167]UD$(I)[178]"A"
4140 UF$(I)[178]PF$(I):[139]UF$(I)[179][177]"*"[175]UF$(I)[179][177]"0"[167]UF$(I)[178]"A"
4150 U1$(I)[178]P1$(I):[139]U1$(I)[179][177]"*"[175]U1$(I)[179][177]"0"[167]U1$(I)[178]"A"
4160 U2$(I)[178]P2$(I):[139]U2$(I)[179][177]"*"[175]U2$(I)[179][177]"0"[167]U2$(I)[178]"A"
4170 U3$(I)[178]P3$(I):[139]U3$(I)[179][177]"*"[175]U3$(I)[179][177]"0"[167]U3$(I)[178]"A"
4180 U4$(I)[178]P4$(I):[139]U4$(I)[179][177]"*"[175]U4$(I)[179][177]"0"[167]U4$(I)[178]"A"
4190 U5$(I)[178]P5$(I):[139]U5$(I)[179][177]"*"[175]U5$(I)[179][177]"0"[167]U5$(I)[178]"A"
4200 [130]
4210 [153]"AUTORADIO  ";:[129]I[178]1[164]N:[153]UR$(I);AS$;:[130]:[153]
4220 [153]"4 TUEREN   ";:[129]I[178]1[164]N:[153]UT$(I);AS$;:[130]:[153]
4230 [153]"UNTERB.SCH.";:[129]I[178]1[164]N:[153]UU$(I);AS$;:[130]:[153]
4240 [153]"SERVOLENKG ";:[129]I[178]1[164]N:[153]UL$(I);AS$;:[130]:[153]
4250 [153]"SCHIEBED.  ";:[129]I[178]1[164]N:[153]UD$(I);AS$;:[130]:[153]
4260 [153]"SONDERLACK.";:[129]I[178]1[164]N:[153]UL$(I);AS$;:[130]:[153]
4270 [139]P1$[179][177]"0"[167][153]P1$;:[129]I[178]1[164]11[171][195](P1$):[153]" ";:[130]
4280 [139]P1$[179][177]"0"[167][129]I[178]1[164]N:[153]U1$(I);AS$:[130]:[153]
4290 [139]P2$[179][177]"0"[167][153]P2$;:[129]I[178]1[164]11[171][195](P2$):[153]" ";:[130]
4300 [139]P2$[179][177]"0"[167][129]I[178]1[164]N:[153]U2$(I);AS$;:[130]:[153]
4310 [139]P3$[179][177]"0"[167][153]P3$;:[129]I[178]1[164]11[171][195](P3$):[153]" ";:[130]
4320 [139]P3$[179][177]"0"[167][129]I[178]1[164]N:[153]U3$(I);AS$;:[130]:[153]
4330 [139]P4$[179][177]"0"[167][153]P4$;:[129]I[178]1[164]11[171][195](P4$):[153]" ";:[130]
4340 [139]P4$[179][177]"0"[167][129]I[178]1[164]N:[153]U4$(I);AS$;:[130]:[153]
4350 [139]P5$[179][177]"0"[167][153]P5$;:[129]I[178]1[164]11[171][195](P5$):[153]" ";:[130]
4360 [139]P5$[179][177]"0"[167][129]I[178]1[164]N:[153]U5$(I);AS$;:[130]:[153]
4370 [161]E$:[139]E$[178]""[167]4370
4380 [139][198](E$)[178]133[167][141]4660
4390 [137]1100
4400 [143] * FINANZIERUNG *
4410 [153]"SOLL ZUMINDEST EIN TEIL DES NEUWAGENS   FINANZIERT WERDEN?"
4420 [161]E$:[139]E$[178]"N"[167]KR(I)[178]0:KS(I)[178]PE(I):[142]
4430 [139]E$[178]"J"[167]KR(I)[178]1:[137]4450
4440 [137]4420
4450 [153]:[153]"WIRD ZUSAETZLICH ZU DEM IN ZAHLUNG"
4460 [153]"GENOMMENEN AUTO NOCH EINE ANZAHLUNG"
4470 [153]"GELEISTET?"
4480 [161]E$:[139]E$[178]"J"[167]4510
4490 [139]E$[178]"N"[167]KB(I)[178]PE(I):[137]4540
4500 [137]4480
4510 [153]"HOEHE DER ANZAHLUNG  ";AZ(I)
4520 [153][199](145)[166]20):[158]SC:[133]AZ(I)
4530 KB(I)[178]PE(I)[171]AZ(I)
4540 [153]:[153]"ZINSEN PRO MONAT (%) ";ZM(I)
4550 [153][199](145)[166]20):[158]SC:[133]ZM(I)
4560 [153]:[153]"WIEVIELE MONATSRATEN ";MO(I)
4570 [153][199](145)[166]20):[158]SC:[133]MO(I)
4580 [153]:[153]"BEARBEITUNGSGEB. (%) ";GE(I)
4590 [153][199](145)[166]20):[158]SC:[133]GE(I)
4600 KS(I)[178]((ZM(I)[172]MO(I)[170]GE(I))[173]100[170]1)[172]KB(I)
4610 [153]:[153]:[153]"KREDITSUMME:"KB(I)"DM"
4620 [153]"SIE ZAHLEN :"[181](KS(I)[172]100[170].5)[173]100;
4630 [153]"DM"
4640 [153]"MONATSRATE :"[181](KS(I)[173]MO(I)[172]100[170].5)[173]100"DMCONT":[153]
4650 [142]
4660 [143] * HARDCOPY *
4670 [139]GR[178]1[167]G1[178]8
4680 [139]GR[178]0[167]G1[178]15
4690 H1[178]1024:[159]4,4:[152]4
4700 [129]H2[178]0[164]24:H1$[178]"":[129]H3[178]0[164]39
4710 H4[178]0:H4[178][194](H1[170]H2[172]40[170]H3):[139]H4[177]128[167]H4[178]H4[171]128:H6[178]1:H1$[178]H1$[170][199](18)
4720 [139]H4[177]95[176]H4[179]32[167]H5[178]H4[170]64
4730 [139]H4[177]31[175]H4[179]64[167]H5[178]H4
4740 [139]H4[177]63[175]H4[179]96[167]H5[178]H4[170]32
4750 H2$[178][199](H5)
4760 H1$[178]H1$[170]H2$:[139]H6[178]1[167]H6[178]0:H1$[178]H1$[170][199](146)
4770 [130]:[152]4,[199](15)[199](16)"20"H1$[199](G1)
4780 [130]:[152]4:[160]4:GR[178]0:[142]
4790 [143] * DRUCKERAUSGABE FUER EIN FAHRZEUG *
4800 [153][199](147):[129]I[178]1[164]N:[153]I;TY$(I):[130]
4810 [153]:[153]"DATEN FUER FAHRZEUG NR.";:[158]SC:[133]I
4820 [159]4,4:[152]4
4830 [152]4,[199](14)I"  "TY$(I)[199](15)
4840 [152]4,"LEISTUNG (KW):          "LE(I)
4850 [152]4,"HUBRAUM (CCM):          "HU(I)
4860 [152]4,"GRUNDPREIS:             "PG(I):[152]4
4870 [152]4,"UEBERFUEHRUNG+ZULASSUNG:"PZ(I)
4880 [152]4,"AUTORADIO:               "PR$(I)
4890 [152]4,"4 TUEREN:                "PT$(I)
4900 [152]4,"UNTERBODEN- U.HOHLR.SCH.:"PU$(I)
4910 [152]4,"SERVOLENKUNG:            "PL$(I)
4920 [152]4,"SCHIEBEDACH:             "PD$(I)
4930 [152]4,"SONDERLACKIERUNG:        "PF$(I)
4940 [139]P1$[179][177]"0"[167][152]4,P1$;[199](16)"25"P1$(I)
4950 [139]P2$[179][177]"0"[167][152]4,P2$,[199](16)"25"P2$(I)
4960 [139]P3$[179][177]"0"[167][152]4,P3$,[199](16)"25"P3$(I)
4970 [139]P4$[179][177]"0"[167][152]4,P4$,[199](16)"25"P4$(I)
4980 [139]P5$[179][177]"0"[167][152]4,P5$,[199](16)"25"P5$(I)
4990 [152]4,"INZAHLUNGNAHME:         "IZ(I)
5000 [152]4,"HAENDLERRABATT:         "HR(I)
5010 [152]4,"GESAMTPREIS:           "PE(I)
5020 [139]KB(I)[178]0[167]5050
5030 [152]4:[139]AZ(I)[179][177]0[167][152]4,"ANZAHLUNG:              "AZ(I)
5040 [152]4,MO(I)"MONATSRATEN ("ZM(I)"CMD%) ZU JE"[181](KS(I)[173]MO(I)[172]100[170].5)[173]100"CMDDM"
5050 [152]4:[152]4,"KRAFTFAHRZEUGSTEUER/JAHR:"VS(I)
5060 [152]4,"HAFTPFLICHTVERS./JAHR:   "VH(I)
5070 [139]VT(I)[179][177]0[167][152]4,"TEILKASKOVERSICHERUNG:   "VT(I)
5080 [139]VV(I)[179][177]0[167][152]4,"VOLLKASKOVERSICHERUNG:   "VV(I)
5090 [139]VI(I)[179][177]0[167][152]4,"INSASSENUNFALLVERSICH.:  "VI(I)
5100 [152]4:[152]4,"MITTLERER VERBRAUCH:"VE(I)"L/100 KM";
5110 [139]TR$(I)[178]"N"[167][152]4,"(NORMALBENZIN)"
5120 [139]TR$(I)[178]"S"[167][152]4,"(SUPERBENZIN)"
5130 [139]TR$(I)[178]"D"[167][152]4,"(DIESEL)"
5140 [139]TR$(I)[178]"A"[167][152]4,"(BLEIFREI NORMAL)"
5150 [139]TR$(I)[178]"B"[167][152]4,"(BLEIFREI SUPER)"
5160 [153]"DRUCKERAUSGABE FUER EINEN WEITEREN WAGEN(J/N)"
5170 [161]E$:[139]E$[178]""[167]5170
5180 [160]4:[139]E$[178]"J"[167]4790
5190 [137]1100